home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / lang / SmallEiffel.lha / SmallEiffel / misc / benchmarks / gc / LkFSO / bench.e next >
Encoding:
Text File  |  1998-12-22  |  316 b   |  30 lines
  1. class BENCH
  2.  
  3. creation make
  4.  
  5. feature
  6.  
  7.    t: TRIANGLE;
  8.     
  9.    p1, p2, p3: POINT;
  10.  
  11.    make is
  12.       local
  13.      i: INTEGER;
  14.       do
  15.      from
  16.         i := 23_000_000;
  17.  
  18.      until
  19.         i = 0
  20.      loop
  21.         !!p1.make(i,i);
  22.         !!p2.make(i+1,i+1);
  23.         !!p3.make(i+2,i+2);
  24.         !!t.make(p1,p2,p3);
  25.         i := i - 1;
  26.      end;
  27.       end;
  28.  
  29. end
  30.